home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Deutsche Edition 1
/
Deutsche Edition 1.iso
/
amok
/
031-040
/
amok31
/
rechner
/
newmathlib.def
< prev
next >
Wrap
Text File
|
1993-11-04
|
2KB
|
53 lines
(*---------------------------------------------------------------------------
:Program. NewMathLib.def
:Author. Philippe Gressly and John Bysäth
:Address. Näfenhaus, CH-8926 Kappel a/Albis
:History. V2.6, Philippe Gressly / John Bysäht, July 89
:Copyright. PD or Shareware (I like Shareware better).
:Language. Modula-II
:Translator. M2Amiga v3.2
:Imports. RealConversions, NewMathLib
:Contents. More Formulas then MathLibLong
---------------------------------------------------------------------------*)
DEFINITION MODULE NewMathLib;
TYPE ArErType = (ArNoEr, (* Kein Fehler *)
ArOverFl, (* Arithmetischer OverFlow *)
ArNDef); (* Arithmetischer Ausdruck nicht definiert *)
VAR ArEr: ArErType;
(* Die fogenden Proceduren ändern ev. die Variable ArEr ! *)
PROCEDURE SQRT(x: LONGREAL): LONGREAL;
PROCEDURE EXP(x: LONGREAL): LONGREAL;
PROCEDURE LN(x: LONGREAL): LONGREAL;
PROCEDURE LOG(x:LONGREAL): LONGREAL;
PROCEDURE SIN(x: LONGREAL): LONGREAL;
PROCEDURE COS(x: LONGREAL): LONGREAL;
PROCEDURE TAN(x: LONGREAL): LONGREAL;
PROCEDURE ARCTAN(x:LONGREAL): LONGREAL;
PROCEDURE SINh(x: LONGREAL): LONGREAL;
PROCEDURE COSh(x: LONGREAL): LONGREAL;
PROCEDURE TANh(x: LONGREAL): LONGREAL;
PROCEDURE ARCSINh(x:LONGREAL): LONGREAL;
PROCEDURE ARCCOSh(x:LONGREAL): LONGREAL;
PROCEDURE ARCTANh(x:LONGREAL): LONGREAL;
PROCEDURE FACT(x: LONGREAL): LONGREAL;
(* Fakultaet *)
PROCEDURE SIGN(x: LONGREAL): LONGREAL;
(* -1.0 IF x < 0.0
0.0 IF x = 0.0
1.0 IF x > 0.0
*)
PROCEDURE DegToRad(x: LONGREAL): LONGREAL;
PROCEDURE RadToDeg(x: LONGREAL): LONGREAL;
END NewMathLib.